home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 26 / 026.d81 / glue info (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  148 lines
  1. 10 rem***********************
  2. 20 rem*glueguide*
  3. 30 rem*bysandysmith*
  4. 40 rem*11september1983*
  5. 50 rem***********************
  6. 60 vt$="":goto110
  7. 70 rem*subroutines*
  8. 80 printspc(20-len(a$)/2)a$:return
  9. 90 printvt$"     [208][210][197][211][211] [193] [203][197][217][160][212][207][160][199][207][160][212][207][160][212][200][197] [205][197][206][213]";:poke198,0:wait198,1:return
  10. 100 rem*titlepage*
  11. 110 print"[147]":a$="[193] [209][213][201][195][203] [199][213][201][196][197] [212][207] [199][204][213][197][211]":gosub80:print
  12. 112 a$="[194][217] [211][193][206][196][217] [211][205][201][212][200]":gosub80
  13. 120 print"  [212][200][201][211] [208][210][207][199][210][193][205] [215][201][204][204] [204][201][211][212] [198][207][210] [217][207][213] [212][200][197]":print
  14. 122 print"[199][204][213][201][206][199] [208][210][207][208][197][210][212][201][197][211] [193][206][196] [207][212][200][197][210] [198][193][195][212][207][210][211] [207][198]":print
  15. 124 print"[212][200][197] 10 [194][193][211][201][195] [203][201][206][196][211] [207][198] [193][196][200][197][211][201][214][197][211].  [210][213][206]"
  16. 130 print:print"[212][200][197] ";chr$(34);"[215][200][201][195][200] [199][204][213][197]?";chr$(34);
  17. 132 print" [208][210][207][199][210][193][205] [212][207] [199][197][212] [193] [204][201][211][212]":print:print"[207][198] [212][200][197] [210][201][199][200][212] [199][204][213][197][211] [212][207] [213][211][197] [212][207] [211][212][201][195][203] [212][215][207]"
  18. 134 print:print"[205][193][212][197][210][201][193][204][211] [212][207][199][197][212][200][197][210].  [212][200][197] [201][206][198][207][210][205][193][212][201][207][206]"
  19. 140 print:print"[195][207][205][197][211] [198][210][207][205] [212][200][197] [202][213][206][197] 21, 1983 [201][211][211][213][197] [207][198]":print
  20. 142 print"[198][193][205][201][204][217] [195][201][210][195][204][197] [205][193][199][193][218][201][206][197]."
  21. 150 gosub90
  22. 160 rem*initialization*
  23. 170 bn$="[194][210][193][206][196] [206][193][205][197][211]: ":bt$="[194][207][206][196][201][206][199] [212][201][205][197]: "
  24. 172 cl$="[210][197][209][213][201][210][197][211] [195][204][193][205][208][201][206][199] [207][210] [200][207][204][196][201][206][199]: ":st$="[211][212][210][197][206][199][212][200]: "
  25. 174 w$="[215][193][212][197][210][208][210][207][207][198]/[210][197][211][201][211][212][193][206][212]: ":f$="[198][204][193][205][205][193][194][204][197]: "
  26. 180 t$="[212][207][216][201][195]: ":wg$="[195][204][197][193][206] [215][197][212] [199][204][213][197] [215][201][212][200]: "
  27. 182 dg$="[211][207][204][214][197][206][212] [198][207][210] [196][210][201][197][196] [199][204][213][197]: "
  28. 190 rem*menu*
  29. 200 print"[147][198][207][210] [201][206][198][207][210][205][193][212][201][207][206] [193][194][207][213][212] [193] [211][208][197][195][201][198][201][195] [199][204][213][197],":print
  30. 202 print"[211][197][204][197][195][212] [193] [206][213][205][194][197][210], [212][200][197][206] [208][210][197][211][211] [210][197][212][213][210][206]."
  31. 210 print:print:print"     0. [195][193][211][197][201][206] [199][204][213][197]": print"     1. [195][207][206][212][193][195][212] [195][197][205][197][206][212]"
  32. 212 print"     2. [195][217][193][206][207][193][195][210][217][204][193][212][197] ([201][206][211][212][193][206][212] [199][204][213][197])"
  33. 220 print"     3. [197][208][207][216][217] ([198][193][211][212])":            print"     4. [197][208][207][216][217] ([211][204][207][215])"
  34. 222 print"     5. [200][207][213][211][197][200][207][204][196] [195][197][205][197][206][212]"
  35. 223 print"     6. [205][193][211][212][201][195]"
  36. 230 print"     7. [208][207][204][217][214][201][206][217][204] ([215][200][201][212][197])"
  37. 232 print"     8. [210][213][194][194][197][210] [195][197][205][197][206][212]"
  38. 234 print"     9. [211][201][204][201][195][207][206][197] ([195][193][213][204][203])
  39. 240 q$[178]"":[153]"lenhoice ((NULL)val(NULL)(NULL)(NULL)(NULL) to quit) ";
  40. 241 [151]198,0:[146]198,1:[161]q$
  41. 242 [139]q$[178][199](13)[167]f$[178]"sandy's glues":[137]60000
  42. 243 [139][198](q$)[179]48[176][198](q$)[177]57[167]240
  43. 250 q[178][197](q$):[139]q[179]0[176]q[177]9[167]240
  44. 260 [145]q[137]280,360,440,520,600,680,760,840,920,1000
  45. 270 [143]*caseinglue*
  46. 280 [153]"load":a$[178]"lenatn(NULL)valright$(NULL) chr$(NULL)(NULL)val":[141]80
  47. 290 [153]:[153]:[153]bn$;"(NULL)val(NULL)str$(NULL)(NULL)(NULL)str$ lenatn(NULL)valright$(NULL)"
  48. 292 [153][166]13)"(NULL)atn(NULL)right$(NULL)(NULL)atn(NULL) lenatn(NULL)valright$(NULL) len(NULL). (NULL)(NULL). 30"
  49. 300 [153]:[153]bt$;"24 left$(NULL)(NULL)(NULL)(NULL)":[153]cl$;"(NULL)val(NULL)"
  50. 310 [153]:[153]st$;"(NULL)val(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)chr$"
  51. 320 [153]:[153]w$;"(NULL)(NULL)":[153]:[153]f$;"(NULL)(NULL)":[153]t$;"(NULL)(NULL)"
  52. 330 [153]:[153]wg$;"(NULL)atn(NULL)val(NULL)":[153]dg$;"(NULL)(NULL)(NULL)val"
  53. 340 [141]90:[137]200
  54. 350 [143]*contactcement*
  55. 360 [153]"load":a$[178]"len(NULL)(NULL)(NULL)atnlen(NULL) lenval(NULL)val(NULL)(NULL)":[141]80
  56. 370 [153]:[153]:[153]bn$;"(NULL)val(NULL)str$(NULL)(NULL)(NULL)str$ len(NULL)(NULL)(NULL)atnlen(NULL) lenval(NULL)val(NULL)(NULL)"
  57. 372 [153][166]13)"chr$(NULL)(NULL)str$(NULL)valatn(NULL) len(NULL)(NULL)(NULL)atnlen(NULL) lenval(NULL)val(NULL)(NULL)"
  58. 380 [153]:[153]bt$;"30 (NULL)(NULL) 60 (NULL)right$(NULL)(NULL)(NULL)val(NULL)":[153]cl$;"(NULL)(NULL)"
  59. 390 [153]:[153]st$;"ascatnright$(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)chr$"
  60. 400 [153]:[153]w$;"(NULL)atn(NULL)val(NULL)(NULL)(NULL)(NULL)(NULL)asc":[153]:[153]f$;"lenleft$vallen(NULL) (NULL)atnpeekval(NULL)":[153]t$;"(NULL)val(NULL)"
  61. 410 [153]:[153]wg$;"(NULL)atn(NULL)val(NULL) (NULL)(NULL) (NULL)atnright$(NULL)(NULL)"
  62. 412 [153][166]5)"(NULL)left$right$(NULL)(NULL)val(NULL)":[153]dg$;"len(NULL)(NULL)(NULL)atnlen(NULL) lenval(NULL)val(NULL)(NULL)"
  63. 414 [153][166]5)"(NULL)left$right$(NULL)(NULL)val(NULL) (NULL)(NULL) (NULL)atnright$(NULL)(NULL) (NULL)left$right$(NULL)(NULL)val(NULL)"
  64. 420 [141]90:[137]200
  65. 430 [143]*instantglue*
  66. 440 [153]"load":a$[178]"len(NULL)atn(NULL)(NULL)atnlen(NULL)(NULL)(NULL)atn(NULL)val (right$(NULL)(NULL)(NULL)atn(NULL)(NULL) chr$(NULL)(NULL)val)":[141]80
  67. 450 [153]:[153]:[153]bn$;"(NULL)(NULL)atn(NULL)(NULL) chr$(NULL)(NULL)val"
  68. 452 [153][166]13)"str$(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)val(NULL) chr$(NULL)(NULL)val-3"
  69. 454 [153][166]13)"(NULL)valatn(NULL)(NULL) (NULL)(NULL)(NULL)val(NULL) chr$(NULL)(NULL)val (NULL)(NULL). 3"
  70. 460 [153]:[153]bt$;"right$(NULL)(NULL)(NULL)atn(NULL)(NULL)(NULL)(NULL)":[153]cl$;"(NULL)val(NULL) (3 (NULL)(NULL)"
  71. 462 [153][166]5)"5 (NULL)vallen(NULL)(NULL)str$(NULL))"
  72. 470 [153]:[153]st$;"(NULL)val(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)chr$"
  73. 480 [153]:[153]w$;"(NULL)atn(NULL)val(NULL)-(NULL)val(NULL)right$(NULL)(NULL)atn(NULL)(NULL)":[153]:[153]f$;"(NULL)val(NULL)":[153]t$;"(NULL)val(NULL)"
  74. 490 [153]:[153]wg$;"atnlenval(NULL)(NULL)(NULL)val":[153]dg$;"atnlenval(NULL)(NULL)(NULL)val"
  75. 500 [141]90:[137]200
  76. 510 [143]*fastepoxy*
  77. 520 [153]"load":a$[178]"val(NULL)(NULL)(NULL)(NULL) (ascatn(NULL)(NULL))": [141]80
  78. 530 [153]:[153]:[153]bn$;"(NULL)right$(NULL)atnlen(NULL)val ascatn(NULL)(NULL) (NULL)val(NULL)": [153][166]13)"asc(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)"
  79. 532 [153][166]13)"str$val(NULL)len(NULL)(NULL), (NULL)atnchr$right$len atn(NULL)val(NULL)right$lenatn (NULL)(NULL)(NULL)(NULL)"
  80. 540 [153]:[153]bt$;"5 (NULL)right$(NULL)(NULL)(NULL)val(NULL)":[153]cl$;"(NULL)val(NULL)"
  81. 550 [153]:[153]st$;"(NULL)(NULL)(NULL)(NULL)(NULL)chr$"
  82. 560 [153]:[153]w$;"(NULL)atn(NULL)val(NULL)-(NULL)val(NULL)right$(NULL)(NULL)atn(NULL)(NULL)":[153]:[153]f$;"(NULL)val(NULL)":[153]t$;"(NULL)val(NULL)"
  83. 570 [153]:[153]wg$;"(NULL)(NULL)atn(NULL)(NULL) (NULL)atn(NULL)val(NULL)":[153]dg$;"(NULL)(NULL)(NULL)val"
  84. 580 [141]90:[137]200
  85. 590 [143]*slowepoxy*
  86. 600 [153]"load":a$[178]"val(NULL)(NULL)(NULL)(NULL) ((NULL)(NULL)(NULL)(NULL))": [141]80
  87. 610 [153]:[153]:[153]bn$;"(NULL)val(NULL)str$(NULL)(NULL)(NULL)str$ val(NULL)(NULL)(NULL)(NULL)"
  88. 612 [153][166]13)"str$val(NULL)len(NULL)(NULL) len(NULL)valatn(NULL) val(NULL)(NULL)(NULL)(NULL)"
  89. 614 [153][166]13)"str$va